home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 January / EnigmA AMIGA RUN 14 (1997)(G.R. Edizioni)(IT)[!][issue 1997-01][PLANET CD IV].iso / planetkit / amiga / planetexec / amitalk / reqtools.talkrequest.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-23  |  815b  |  38 lines
  1. /* Talk answer requestor by Brian Gunn 02/28/94 */
  2. /* Modified by Len Trigg 4/28/94 */
  3.  
  4. NL = '0a'x
  5.  
  6. /* Initialise callee to someone you often call to save typing when
  7. ** you call them
  8. */
  9. callee = "APerson@wherever.they.are"
  10.  
  11. /* Try to add RexxReqTools.library if it isn't already there.
  12. */
  13. IF ~SHOW(l,"rexxreqtools.library") THEN
  14.     IF ~ADDLIB("rexxreqtools.library", 0, -30, 0) THEN
  15.         EXIT 10
  16.  
  17. IF ARG()~=1 THEN DO
  18.     /* Initiate a call
  19.     */
  20.     callee = rtgetstring(callee, , "AmiTALK to:", , )
  21.  
  22.     IF callee ~= "" THEN DO
  23.         ADDRESS command "talk" callee
  24.         END
  25.     EXIT 5
  26. END
  27.  
  28. /* Answer an incoming call
  29. */
  30. PARSE ARG callee caller
  31.  
  32. IF rtezrequest("Talk request from" || NL ||,
  33.     NL||callee, "Answer|Ignore", DATE() "at" TIME(CIVIL)" to "|| caller) THEN DO
  34.         ADDRESS command "talk " || callee
  35. END
  36.  
  37. remlib("rexxreqtools.library")
  38.